home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aae.d64 / byte'calc.basic (.txt) < prev    next >
Commodore BASIC  |  2007-02-28  |  262b  |  19 lines
  1. 10 REM : SAVE "@0:CALC-BYT5/85-BAS",8
  2. 20 REM
  3. 30 REM
  4. 40 S=TIME
  5. 50 N=5000 : REM TIMES IN LOOP
  6. 60 A=2.71828
  7. 70 B=3.14159266
  8. 80 C=1
  9. 90 FOR T =1 TO N
  10. 100 C=C*A
  11. 110 C=C*B
  12. 120 C=C/A
  13. 130 C=C/B
  14. 140 NEXT
  15. 150 E=TIME
  16. 160 PRINT "DONE
  17. 170 [153] "ERROR = ";C[171]1
  18. 180 [153] "TIME = ";(E[171]S)[173]60
  19.